Sub ()

    Dim  As Integer
     = Sheets("ŷ").Range("H6").Value
    
    If  = 1 Then
        Call ԰
    Else
        Call 
    End If
        
End Sub
